home *** CD-ROM | disk | FTP | other *** search
/ Nothing but Tetris / Nothing but Tetris.iso / amiga / protris1.1 / install < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.7 KB  |  83 lines
  1. ; Install script for ProTris
  2.  
  3. (set old_level @user-level)
  4.  
  5. (set reqtoolslib "libs/reqtools.library")
  6.  
  7. ;=============================================================================
  8. ; English strings
  9.  
  10. (set default_lang 4)
  11.  
  12. (set #bad-kick
  13. (cat "You must be using Kickstart 2.04 to install using this script!"
  14. ))
  15.  
  16. (set #copying-reqtools     "Copying reqtools.library to Libs:...")
  17.  
  18. (set #where-prog (cat "In which drawer should ProTris be installed ?\n"
  19.                       "a directory 'ProTris' will be created!"))
  20.  
  21. (set #install-msg
  22. (cat "\nProTris installation script.\n"
  23.     "This script installs ProTris V1.1 on your Amiga.\n\n"
  24.     "Read the documentation for more information\n"
  25.     "on the distribution of ProTris.\n\n"
  26.     "ProTris ⌐ 1993-1994 Protec/Mirage\n"
  27.     "All rights reserved.\n\n"
  28.     "Thanx to Nico Franτois for:\n"
  29.     "his excelent reqtools.library\n"
  30.     "and for his install-script example."
  31. ))
  32.  
  33. ;=============================================================================
  34. ; make sure we are running under a 2.04 ROM
  35.  
  36. (if (< (/ (getversion) 65536) 37)
  37. (
  38.     (abort #bad-kick)
  39. ))
  40.  
  41. ;=============================================================================
  42.  
  43. (message #install-msg)
  44.  
  45. (copylib
  46.     (prompt "\n" #copying-reqtools)
  47.     (help @copylib-help)
  48.     (source reqtoolslib)
  49.     (dest "Libs:")
  50.     (confirm)
  51. )
  52.  
  53. (set progdir
  54.     (askdir
  55.         (prompt #where-prog)
  56.         (help @askdir-help)
  57.         (default @default-dest)
  58.     )
  59. )
  60.  
  61. (makedir (tackon progdir "ProTris") (infos))
  62.  
  63. (set @default-dest (tackon progdir "ProTris"))
  64.  
  65. (copyfiles
  66.     (source "ProTris")
  67.     (dest @default-dest)
  68.     (infos)
  69. )
  70.  
  71. (copyfiles
  72.     (source "ProTris.guide")
  73.     (dest @default-dest)
  74.     (infos)
  75. )
  76.  
  77. (copyfiles
  78.     (source "ProTrisSamples")
  79.     (dest (tackon @default-dest "ProTrisSamples"))
  80.     (infos)
  81.     (all)
  82. )
  83.